home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2000 February / PCW_2_2000.ISO / software / sw / notfall / xsetpsdk.exe / examples / testplug check.xpl next >
Encoding:
Text File  |  1999-01-06  |  973 b   |  36 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="1"
  3. "COUNT"="1"
  4. "UIPATH"="Test Plug-ins"
  5. "NAME"="Plug-in Check Test"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Text 1"
  8. "DESCRIPTION 1"="This plug-in uses the DataInvalid function to indicate that the check has gone wrong as long as you not enter "AAA" in the first field."
  9. "AUTHOR"="Xteq Systems"
  10. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  11.  
  12.  
  13. 'Called when the Plugin is started
  14. Sub Plugin_Initialize
  15.  DebugMsg("Plugin_Initialize")
  16. End Sub
  17.  
  18. 'Called when the Plugin should validate the Data the user has entered
  19. Sub Plugin_CheckData(ElementIndex)
  20.  s=GetUIElement(1)
  21.  if s<>"AAA" then
  22.   DataInvalid("Please enter AAA")
  23.  end if
  24.  
  25. End Sub
  26.  
  27. 'Called when the Plugin should apply the changes
  28. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  29.  DebugMsg("Apply fired!")
  30. End Sub
  31.  
  32. 'Called when the Plugin is about to be removed from memory
  33. Sub Plugin_Terminate
  34.  DebugMsg("Plugin_Terminate")
  35. End Sub
  36.